home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / file_titles (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  149 lines
  1. 10 REM" PONZO/WATERLOO
  2. 20 [143]"
  3. 30 REM" FILE/TITLES
  4. 40 [143]"
  5. 100 PRINTCHR$(14):CLR:GOSUB690
  6. 105 NL=9:REM MAX LINES IN DISPLAY
  7. 110 PRINT"[147]"L$:PRINT" [195][146]REATE [206][197][215] [212][201][212][204][197]-[198][201][204][197]"
  8. 120 PRINT" [205][146]ODIFY OLD [212][201][212][204][197]-[198][201][204][197]":PRINT" NOTE[157][157][157][157][184][184][184][184][145]:[200]IT * TO [210][197][211][212][193][210][212].
  9. 125 [141]840:CH$[178]A$:[139]A$[178]"M"[167]1000
  10. 130 [129]U9[178]1[164]5:[153]"LOAD                                   ":[129]U8[178]1[164]50:[130]
  11. 131 [153]"LOADLEFT$IT "Q$"WAIT TO QUIT - *WAIT TO RESTART":[129]U8[178]1[164]50:[130]
  12. 135 [130]:MT[178]30:NM[178]MT:[153]L$
  13. 140 [134] TL$(NM),FD$(NM),SN(NC),I(2[172]NC),L(NM),N(NM),NM$(NF),TN(NM),S$(NM)
  14. 150 [134] PS$(NM),R(NM),A(NL)
  15. 155 I[178]0
  16. 160 [153]"TITLE "I[170]1"WAIT";:[133]TL$(I)
  17. 165 [139]TL$(I)[178]"*"[167][138]
  18. 170 [141]610:[139]TL$(I)[178]Q$[167]240
  19. 180 [153]"(null)UMBER OF CHARACTERS IN "TL$(I);:[133]"WAIT";LI$:L(I)[178][197](LI$)
  20. 181 [139]LI$[178]"*"[167][138]
  21. 185 [139][195](TL$(I))[170]L(I)[177]37[167][129]U9[178]1[164]5:[141]610:[130]:[137]160
  22. 190 [141]610
  23. 200 R(I)[178]0:[133]"HIGHLIGHTED DISPLAY   NCMDCMDCMD";V$:[139]V$[178]"Y"[167]R(I)[178]1
  24. 210 [141]610:[139]V$[178]Q$[167]240
  25. 215 [139]V$[178]"*"[167][138]
  26. 220 N(I)[178]1:[133]"AWAITLPHABETIC OR NWAITUMERIC   ACMDCMDCMD";V$:[139]V$[178]"N"[167]N(I)[178]0
  27. 225 [139]V$[178]"*"[167][138]
  28. 230 [141]610:I[178]I[170]1:[139]I[179]MT[167]160
  29. 235 [153]"******TOO MANY TITLES*****":[129]T[178]1[164]1000:[130]
  30. 240 NM[178]I[171]1
  31. 250 MAX[178]0:[129]I[178]0[164]NM:L[178][195](TL$(I)):[139]MAX[179]L[167]MAX[178]L
  32. 255 [130]:[141]420:S$[178]"":[153]"LOAD"
  33. 260 [129]K[178]0[164]NM:[153]PS$(K)TL$(K);:BL[178]L(K):[141]870:[153][202]([196](K[170]1),2):[130]
  34. 270 [153]SD$"ONFORMAT OK?";:[141]850:[139]A$[179][177]"Y"[167][141]540:[137]250
  35. 280 MAX[178]MAX[170]2:LL[178]MAX[170]2:SUM[178]0
  36. 285 [153]"LOAD";:[129]I[178]0[164]NM:FD$(I)[178][200](TL$(I)[170]DT$,MAX):[130]:N0[178]0
  37. 290 [129]I[178]0[164]NM:N0[178]N0[170]L(I):[130]:NC[178][181]((20000[171]5[172]NM[172]MAX)[173](N0[170]100))
  38. 291 [139]NC[177]255[167]NC[178]255
  39. 292 [141]2000
  40. 295 [153]"LOADVALACH STR$ATN(null)ATN-ASCRIGHT$(null)VAL MAY HAVE"NC" RECORDS."
  41. 300 [133]"(null)AME OF (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL";TF$
  42. 310 [133]"STR$RIVE   0CMDCMDCMD";DR$:[141]610
  43. 315 [133]"(null)EPLACE AN EXISTING (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL   NCMDCMDCMD";A$:[139]A$[178]"Y"[167]DR$[178]"@"[170]DR$
  44. 320 [159]15,8,15
  45. 330 [159]2,8,2,DR$[170]":"[170]TF$[170]",S,W"
  46. 335 [132]15,E,EM$,ET$,ES$
  47. 336 [139]E[179][177]0[167][153]""EM$:[160]2:[160]15:[153]">(null)VAL(null)(null)(null)(null)WAIT":[141]390:[137]295
  48. 337 [152]2,EN;CR$;:[139]EN[177]0[167][129]Y[178]1[164]EN:[152]2,EQ$(Y);CR$;:[130]
  49. 340 [152]2,NC;CR$;NM;CR$;LL;CR$;KM;CR$;
  50. 350 [129]I[178]0[164]NM:[152]2,R(I);CR$;:[130]
  51. 360 [129]I[178]0[164]NM:[152]2,TL$(I);CR$;FD$(I);CR$;L(I);CR$;N(I);CR$;PS$(I);CR$;:[130]
  52. 370 [129]K[178]0[164]KM:[152]2,A(K);CR$;:[130]
  53. 380 [160]2:[160]15:DR$[178][196]([194](704)):[147]DR$[170]":"[170]FM$,8:[138]
  54. 390 [161]A$:[139]A$[179][177]""[167]390
  55. 400 [161]A$:[139]A$[178]""[167]400
  56. 405 [139]A$[178]"*"[167][138]
  57. 410 [142]
  58. 420 [143] FORMAT CALCULATIONS
  59. 430 K[178]0:I[178][171]1
  60. 440 SUM[178]0
  61. 450 I[178]I[170]1:[139]I[177]NM[167]A(K)[178]NM:[137]490
  62. 460 SUM[178]SUM[170][195](TL$(I))[170]L(I)[170]3
  63. 470 [139]SUM[179]WD[167]450
  64. 480 I[178]I[171]1:A(K)[178]I:K[178]K[170]1:[139]K[179]NL[167] [137]440
  65. 481 [153]"LOAD***BAD FORMAT!!WAIT***":[133]"(null)ESTART   YCMDCMDCMD";U9$
  66. 482 [139]U9$[178]"Y"[167][138]
  67. 483 [142]
  68. 490 KM[178]K:Z[178]0:K[178]0
  69. 500 SUM[178]0:[129]I[178]Z[164]A(K):PS$[178][200](SD$,3[172]K[170]3):[129]J[178]0[164]SUM:PS$[178]PS$[170]"":[130]
  70. 510 PS$(I)[178]PS$:SUM[178]SUM[170][195](TL$(I))[170]L(I)[170]3:[130]
  71. 520 [139]K[179]KM[167]Z[178]A(K)[170]1:K[178]K[170]1:[139]K[179]NL[167]500
  72. 530 [142]
  73. 540 [143] CHANGE FORMAT
  74. 541 [153]SD$"ONLENHANGE TITLE #";:[133]U9$:[139]U9$[178]"*"[167][138]
  75. 545 TL[178][197](U9$)[171]1:G$[178]SD$[170]"ON"[170]BL$[170]SD$[170]"ON"
  76. 550 [139]TL[179]0[167]545
  77. 555 [153]G$;:[153]"TITLE  "TL$(TL):[153]"ON";
  78. 560 [133]TL$(TL):[153]G$;:[153]"LENHARACTERS IN (null)RIGHT$(null)(null)VAL "L(TL)
  79. 565 [133]"ON";L(TL):[139]MAX[179]L[167]MAX[178]L
  80. 570 Y$[178]"A":[139]N(TL)[178]0[167]Y$[178]"N"
  81. 575 [153]G$;:[153]"AWAITLPHABETIC OR NWAITUMERIC   ";Y$
  82. 580 N(TL)[178]1:[133]"ON";Y$:[139]Y$[178]"N"[167]N(TL)[178]0
  83. 600 [142]
  84. 610 [151]SID[170]24,15
  85. 620 [151]SID[170]4,17:[129]PP[178]1[164]50:[130]:[151]SID[170]4,0
  86. 630 [151]SID[170]24,0
  87. 640 [142]
  88. 650 [151]SID[170]24,15
  89. 660 [129]Y[178]1[164]5:[151]SID[170]4,33:[129]PP[178]1[164]50:[130]:[151]SID[170]4,0
  90. 670 [151]SID[170]24,0
  91. 680 [142]
  92. 690 [143] INITIALIZE
  93. 695 SID[178]54272:[151]SID[170]1,50:[151]SID[170]3,200:[151]SID[170]5,0:[151]SID[170]6,240:[151]SID[170]24,0
  94. 700 NF[178]50:[143] MAX NUMBER OF FILES
  95. 710 L$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  96. 720 LP$[178]L$[170]L$:BL$[178]"                                     "
  97. 730 DT$[178]"":[129]I[178]1[164]39:DT$[178]DT$[170]".":[130]
  98. 740 Q$[178]"@":AQ[178][198](Q$):B$[178]"^":AB[178][198](B$):FL$[178]"               "
  99. 750 P1[178]1:P2[178]60:P3[178]64:WD[178]40
  100. 780 C0[178]198:LN[178]216:V$[178]"":O$[178]"WAIT"
  101. 790 L$[178][200](L$,WD[171]1)
  102. 800 SD$[178]""
  103. 810 CR$[178][199](13):P$(1)[178]"":P$(0)[178]""
  104. 820 PT$(1)[178]"":PT$(0)[178][199](13)
  105. 825 [151]53280,6:[153]"STOP"
  106. 830 [142]
  107. 840 [153]SD$"ON"L$SD$"SELECTIONWAIT ";
  108. 850 [151]204,0:[141]390:[151]204,1:[141]610
  109. 860 FM$[178]"FILE/MASTER":[142]
  110. 870 [153]"(null)ONCMDOR";:[129]Z[178]1[164]BL[170]1:[153]"TAN";:[130]:[153]"^CMD(null)CMDEXPCMDCMD";
  111. 880 [129]Z[178]1[164]BL[170]1:[153]"TANCMDCMD";:[130]:[153]"/ON";:[142]
  112. 890 BL[178]35:[153]SD$"ONONONON":[141]870
  113. 900 [153]""Q$"WAIT=QUIT(null)ONCMD=CMD>ON"B$"WAIT=LAST(null)ONCMD=CMD>ON";
  114. 910 [153]"_WAITBACK(null)ONCMD=CMD>ONRETURNWAIT=FORWARD":[142]
  115. 1000 [143] MODIFY
  116. 1010 [133]"LOAD(null)AME OF (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL";TF$
  117. 1015 [133]"STR$RIVE   0CMDCMDCMD";DR$
  118. 1020 [159]15,8,15
  119. 1030 [159]2,8,2,DR$[170]":"[170]TF$[170]",S,R"
  120. 1035 [132]15,E,EM$,ET$,ES$
  121. 1036 [139]E[179][177]0[167][153]""EM$:[160]2:[160]15:[153]">(null)VAL(null)(null)(null)(null)WAIT":[141]390:[137]1000
  122. 1037 [132]2,EN:[139]EN[177]0[167][129]Y[178]1[164]EN:[132]2,EQ$(Y):[130]
  123. 1040 [132]2,NC:[132]2,NM:[132]2,LL:[132]2,KM
  124. 1045 [134] TL$(NM),FD$(NM),SN(NC),I(2[172]NC),L(NM),N(NM),NM$(NF),TN(NM),S$(NM)
  125. 1050 [134] PS$(NM),R(NM),A(NL)
  126. 1055 [129]I[178]0[164]NM:[132]2,R(I):[130]
  127. 1060 [129]I[178]0[164]NM:[132]2,TL$(I):[132]2,FD$(I):[132]2,L(I):[132]2,N(I)
  128. 1070 [132]2,PS$(I):[130]:[129]K[178]0[164]KM:[132]2,A(K):[130]
  129. 1080 [160]2:[160]15
  130. 1090 [137]250
  131. 2000 [143] USER SUBROUTINE
  132. 2010 [153]"LOADSTR$O YOU WISH TO INCLUDE A SUBROUTINE"
  133. 2020 [153]"TO BE 'ADDED' TO "FM$"WAIT? ";:[141]850:[139]A$[178]"N"[167][153]:[142]
  134. 2030 [153]"LOAD(null)HE VARIABLES YOU HAVE ARE:"
  135. 2035 [129]Y[178]0[164]NM:[139]N(Y)[178]0[167][153]"V("Y")="TL$(Y)
  136. 2040 [130]:[153]"VALNTER"Q$" TO (null)(null)RIGHT$(null)STOP"
  137. 2050 [153]"";:EN[178]55000:Y[178]1
  138. 2060 EN$(Y)[178][196](EN[170]Y)[170]" ":[153]EN$(Y)EQ$(Y);
  139. 2070 [141]3000:[139] A$[179][177]Q$ [167]EQ$(Y)[178]EQ$:Y[178]Y[170]1:[153]:[137]2060
  140. 2080 [160]1:EN[178]Y[171]1
  141. 2090 [153]"LOAD";:[129]Y[178]1[164]EN:[153]EN$(Y)EQ$(Y):[130]
  142. 2100 [153]SD$"ON(null)(null)? ";:[141]850:[139]A$[178]"N"[167]2030
  143. 2200 [142]
  144. 3000 [143] INPUT
  145. 3010 EQ$[178]EQ$(Y)
  146. 3020 [151]204,0:[161]A$:[139]A$[178]""[167]3020
  147. 3030 [151]204,1:[139]A$[178]Q$[176]A$[178][199](13)[167][142]
  148. 3040 [153]A$;:EQ$[178]EQ$[170]A$:[137]3020
  149.